home *** CD-ROM | disk | FTP | other *** search
/ Paparazzi!: Tales of Tinseltown / Paparazzi - Tales of Tinseltown (1995)(Activision)(Disc 1 of 2).iso / pprazia1.dir / 00055_Script_Options Enter Script < prev    next >
Text File  |  1995-05-21  |  3KB  |  96 lines
  1. on exitFrame
  2.   global gCurrentPlayer, player1, player2, player3,¼
  3.  player4, player5, player6, theMovieName, gTheCDPath,¼
  4.  gTheDay, HDPathName
  5.   
  6.   if soundbusy(1) then 
  7.     nothing
  8.   else
  9.     sound playfile 1, HDPathName & "hang8bit.aif"
  10.   end if
  11.   
  12.   put 0 into theMovieName
  13.   
  14.   unloadcast
  15.   
  16.   optionsON -- puppets all the option screen sprites
  17.   
  18.   -- sets all the character icons
  19.   set the castNum of sprite 9 = cast line 11 of player1
  20.   set the castNum of sprite 10 = cast line 11 of player2
  21.   set the castNum of sprite 11 = cast line 11 of player3
  22.   set the castNum of sprite 12 = cast line 11 of player4
  23.   set the castNum of sprite 13 = cast line 11 of player5
  24.   set the castNum of sprite 14 = cast line 11 of player6
  25.   
  26.   -- sets all the names of the characters
  27.   set the castNum of sprite 16 = cast line 10 of player1
  28.   set the castNum of sprite 17 = cast line 10 of player2
  29.   set the castNum of sprite 18 = cast line 10 of player3
  30.   set the castNum of sprite 19 = cast line 10 of player4
  31.   set the castNum of sprite 20 = cast line 10 of player5
  32.   set the castNum of sprite 21 = cast line 10 of player6
  33.   
  34.   --sets the day the character is on, if any
  35.   set the castNum of sprite 23 = cast line 12 of player1
  36.   set the castNum of sprite 24 = cast line 12 of player2
  37.   set the castNum of sprite 25 = cast line 12 of player3
  38.   set the castNum of sprite 26 = cast line 12 of player4
  39.   set the castNum of sprite 27 = cast line 12 of player5
  40.   set the castNum of sprite 28 = cast line 12 of player6
  41.   
  42.   if value(gCurrentPlayer) = 0 then
  43.     exit
  44.   end if
  45.   
  46.   
  47.   if value(gCurrentPlayer) = 1 then
  48.     set b = the name of cast string(the name of cast ¼
  49. value(the castNum of sprite 9)) & "hl"
  50.     set the castNum of sprite 9 = cast string(b)
  51.     updatestage
  52.     writeCurrentPlayer
  53.     exit
  54.   end if
  55.   
  56.   if value(gCurrentPlayer) = 2 then
  57.     set b = the name of cast string(the name of cast ¼
  58. value(the castNum of sprite 10)) & "hl"
  59.     set the castNum of sprite 10 = cast string(b)
  60.     updatestage
  61.     exit
  62.   end if
  63.   
  64.   if value(gCurrentPlayer) = 3 then
  65.     set b = the name of cast string(the name of cast ¼
  66. value(the castNum of sprite 11)) & "hl"
  67.     set the castNum of sprite 11 = cast string(b)
  68.     updatestage
  69.     exit
  70.   end if
  71.   
  72.   if value(gCurrentPlayer) = 4 then
  73.     set b = the name of cast string(the name of cast ¼
  74. value(the castNum of sprite 12)) & "hl"
  75.     set the castNum of sprite 12 = cast string(b)
  76.     updatestage
  77.     exit
  78.   end if
  79.   
  80.   if value(gCurrentPlayer) = 5 then
  81.     set b = the name of cast string(the name of cast ¼
  82. value(the castNum of sprite 13)) & "hl"
  83.     set the castNum of sprite 13 = cast string(b)
  84.     updatestage
  85.     exit
  86.   end if
  87.   
  88.   if value(gCurrentPlayer) = 6 then
  89.     set b = the name of cast string(the name of cast ¼
  90. value(the castNum of sprite 14)) & "hl"
  91.     set the castNum of sprite 14 = cast string(b)
  92.     updatestage
  93.     exit
  94.   end if
  95.   
  96. end